home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -rainbow roller (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  383 b   |  9 lines
  1. 10 poke808,234:poke53281,0:poke53280,12:d$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][146]":print"[150][147][142]"
  2. 20 fori=1to7:printtab(10)d$:next:print:print:print:print
  3. 30 printtab(7)"press spacebar to stop"
  4. 40 dimc(16):fori=1to16:readc(i):next:data2,8,10,7,13,3,14,4,2,8,10,7,13,3,14,4
  5. 50 poke648,212:forj=1to8:print"":fori=jtoj+6:poke646,c(i):printtab(10)d$
  6. 60 nexti,j
  7. 70 geta$:ifa$<>" "then50
  8. 80 poke648,4:poke808,237:poke646,1:poke198,0:end
  9.